home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / T U R B O Language / Turbo C v2.0 / C0.ASM < prev    next >
Assembly Source File  |  1988-08-29  |  22KB  |  671 lines
  1.         NAME    c0
  2.         PAGE    60,132
  3. ;[]------------------------------------------------------------[]
  4. ;|      C0.ASM -- Start Up Code                                 |
  5. ;|                                                              |
  6. ;|      Turbo-C Run Time Library        version 2.0             |
  7. ;|                                                              |
  8. ;|      Copyright (c) 1988 by Borland International Inc.        |
  9. ;|      All Rights Reserved.                                    |
  10. ;[]------------------------------------------------------------[]
  11.  
  12.         INCLUDE RULES.ASI
  13.  
  14. _Strict87_    equ    false        ; emulation skips peculiar details
  15.  
  16. ;       Segment and Group declarations
  17.  
  18. _TEXT   SEGMENT BYTE PUBLIC 'CODE'
  19. _TEXT   ENDS
  20. _DATA   SEGMENT PARA PUBLIC 'DATA'
  21. _DATA   ENDS
  22. IFNDEF  __NOFLOAT__
  23. _EMUSEG SEGMENT WORD COMMON 'DATA'
  24. _EMUSEG ENDS
  25. ENDIF
  26. _CRTSEG SEGMENT WORD COMMON 'DATA'
  27. _CRTSEG ENDS
  28. _CVTSEG SEGMENT WORD PUBLIC 'DATA'
  29. _CVTSEG ENDS
  30. _SCNSEG SEGMENT WORD PUBLIC 'DATA'
  31. _SCNSEG ENDS
  32. IFNDEF __HUGE__
  33. _BSS    SEGMENT WORD PUBLIC 'BSS'
  34. _BSS    ENDS
  35. _BSSEND SEGMENT BYTE PUBLIC 'STACK'
  36. _BSSEND ENDS
  37. ENDIF
  38. IFNDEF __TINY__
  39. _STACK  SEGMENT STACK 'STACK'
  40. _STACK  ENDS
  41. ENDIF
  42.  
  43. IFNDEF  __NOFLOAT__
  44.  
  45. IF      LDATA
  46. IFNDEF __HUGE__
  47. DGROUP  GROUP   _DATA, _EMUSEG, _CRTSEG, _CVTSEG, _SCNSEG, _BSS, _BSSEND
  48. ELSE
  49. DGROUP  GROUP   _DATA, _EMUSEG, _CRTSEG, _CVTSEG, _SCNSEG
  50. ENDIF
  51. ELSE
  52. IFNDEF  __TINY__
  53. DGROUP  GROUP   _DATA, _EMUSEG, _CRTSEG, _CVTSEG, _SCNSEG, _BSS, _BSSEND
  54. ELSE
  55. DGROUP  GROUP   _TEXT, _DATA, _EMUSEG, _CRTSEG, _CVTSEG, _SCNSEG, _BSS, _BSSEND
  56. ENDIF
  57. ENDIF
  58.  
  59. ELSE
  60.  
  61. IF      LDATA
  62. IFNDEF __HUGE__
  63. DGROUP  GROUP   _DATA, _CRTSEG, _CVTSEG, _SCNSEG, _BSS, _BSSEND
  64. ELSE
  65. DGROUP  GROUP   _DATA, _CRTSEG, _CVTSEG, _SCNSEG
  66. ENDIF
  67. ELSE
  68. IFNDEF  __TINY__
  69. DGROUP  GROUP   _DATA, _CRTSEG, _CVTSEG, _SCNSEG, _BSS, _BSSEND
  70. ELSE
  71. DGROUP  GROUP   _TEXT, _DATA, _CRTSEG, _CVTSEG, _SCNSEG, _BSS, _BSSEND
  72. ENDIF
  73. ENDIF
  74.  
  75. ENDIF
  76.  
  77.         ASSUME  CS:_TEXT, DS:DGROUP
  78.  
  79. ;       External References
  80.  
  81. ExtProc@        main,   __CDECL__
  82. ExtProc@        _setargv, __CDECL__
  83. ExtProc@        _setenvp, __CDECL__
  84. ExtProc@        exit,   __CDECL__
  85.  
  86. IF      LDATA EQ false
  87. ExtSym@ _heaplen, WORD,  __CDECL__
  88. ENDIF
  89. ExtSym@ _stklen,  WORD,  __CDECL__
  90.  
  91.         SUBTTL  Start Up Code
  92.         PAGE
  93. ;/*                                                     */
  94. ;/*-----------------------------------------------------*/
  95. ;/*                                                     */
  96. ;/*     Start Up Code                                   */
  97. ;/*     -------------                                   */
  98. ;/*                                                     */
  99. ;/*-----------------------------------------------------*/
  100. ;/*                                                     */
  101. PSPHigh         equ     00002h
  102. PSPEnv          equ     0002ch
  103. PSPCmd          equ     00080h
  104.  
  105. IFDEF    __NOFLOAT__
  106.     MINSTACK    equ    128    ; minimal stack size in words
  107. ELSE
  108.     MINSTACK    equ    256    ; minimal stack size in words
  109. ENDIF
  110. ;
  111. ;       At the start, DS and ES both point to the segment prefix.
  112. ;       SS points to the stack segment except in TINY model where
  113. ;       SS is equal to CS
  114. ;
  115. _TEXT   SEGMENT
  116. IFDEF   __TINY__
  117.         ORG     100h
  118. ENDIF
  119. STARTX          PROC    NEAR
  120. ;       Save general information, such as :
  121. ;               DGROUP segment address
  122. ;               DOS version number
  123. ;               Program Segment Prefix address
  124. ;               Environment address
  125. ;               Top of far heap
  126.  
  127. IFDEF   __TINY__
  128.                 mov     dx, cs          ; DX = GROUP Segment address
  129. ELSE
  130.                 mov     dx, DGROUP      ; DX = GROUP Segment address
  131. ENDIF
  132.                 mov     cs:DGROUP@@, dx
  133.                 mov     ah, 30h
  134.                 int     21h
  135.                 mov     bp, ds:[PSPHigh]; BP = Highest Memory Segment Addr
  136.                 mov     bx, ds:[PSPEnv] ; BX = Environment Segment address
  137.                 mov     ds, dx
  138.                 mov     _version@, ax   ; Keep major and minor version number
  139.                 mov     _psp@, es       ; Keep Program Segment Prefix address
  140.                 mov     _envseg@, bx    ; Keep Environment Segment address
  141.                 mov     word ptr _heaptop@ + 2, bp
  142.                 mov     _8087@, -1
  143. ;
  144. ;       Save several vectors and install default divide by zero handler.
  145. ;
  146.                 call    SaveVectors
  147.  
  148. ;       Look for a '87' environment variable, and use this loop to
  149. ;       count the number of environment variables and to compute the
  150. ;       environment size.
  151. ;       Each variable is ended by a 0 and a zero-length variable stops
  152. ;       the environment. The environment can NOT be greater than 32k.
  153.  
  154.                 les     di, dword ptr _envLng@
  155.                 mov     ax, di
  156.                 mov     bx, ax
  157.                 mov     cx, 07FFFh      ; Environment cannot be > 32 Kbytes
  158. IsIt87Var       label   near
  159.                 cmp     word ptr es:[di], '78'
  160.                 jne     GetVarLng
  161.                 mov     dx, es:[di+2]
  162.                 cmp     dl, '='
  163.                 jne     GetVarLng
  164.                 and     dh, not ' '
  165.                 inc     _8087@
  166.                 cmp     dh, 'Y'
  167.                 jne     GetVarLng
  168.                 inc     _8087@
  169. GetVarLng       label   near
  170.                 repnz   scasb
  171.                 jcxz    InitFailed      ; Bad environment !!!
  172.                 inc     bx              ; BX = Nb environment variables
  173.                 cmp     es:[di], al
  174.                 jne     IsIt87Var       ; Next variable ...
  175.                 or      ch, 10000000b
  176.                 neg     cx
  177.                 mov     _envLng@, cx     ; Save Environment size
  178.                 mov     cx, dPtrSize / 2
  179.                 shl     bx, cl
  180.                 add     bx, dPtrSize * 4
  181.                 and     bx, not ((dPtrSize * 4) - 1)
  182.                 mov     _envSize@, bx   ; Save Environment Variables Nb.
  183.  
  184. ;       Determine the amount of memory that we need to keep
  185.  
  186. IF      LDATA
  187.                 mov     dx, ss
  188.                 sub     bp, dx          ; BP = remaining size in paragraphs
  189. IFDEF   __HUGE__
  190.                 mov     di, seg _stklen@
  191.                 mov     es, di
  192.                 mov     di, es:_stklen@ ; DI = Requested stack size
  193. ELSE
  194.                 mov     di, _stklen@    ; DI = Requested stack size
  195. ENDIF
  196. ;
  197. ; Make sure that the requested stack size is at least MINSTACK words.
  198. ;
  199.                 cmp     di, 2*MINSTACK  ; requested stack big enough ?
  200.                 jae     AskedStackOK
  201.                 mov     di, 2*MINSTACK  ; no --> use minimal value
  202. IFDEF   __HUGE__
  203.                 mov     es:_stklen@, di ; override requested stack size
  204. ELSE
  205.                 mov        _stklen@, di ; override requested stack size
  206. ENDIF
  207. AskedStackOK    label   near
  208.                 mov     cl, 4
  209.                 shr     di, cl          ; $$$ Do not destroy CL $$$
  210.                 inc     di              ; DI = Stack size in paragraphs
  211.                 cmp     bp, di
  212.                 jnb     ExcessOfMemory  ; Much more available than needed
  213. ELSE
  214.                 mov     dx, ds
  215.                 sub     bp, dx          ; BP = remaining size in paragraphs
  216.                 mov     di, _stklen@    ; DI = Requested stack size
  217. ;
  218. ; Make sure that the requested stack size is at least MINSTACK words.
  219. ;
  220.                 cmp     di, 2*MINSTACK  ; requested stack big enough ?
  221.                 jae     AskedStackOK
  222.                 mov     di, 2*MINSTACK  ; no --> use minimal value
  223.                 mov     _stklen@, di    ; override requested stack size
  224. AskedStackOK    label   near
  225.                 add     di, offset DGROUP: edata@
  226.                 jb      InitFailed      ; DATA segment can NOT be > 64 Kbytes
  227.                 add     di, _heaplen@
  228.                 jb      InitFailed      ; DATA segment can NOT be > 64 Kbytes
  229.                 mov     cl, 4
  230.                 shr     di, cl          ; $$$ Do not destroy CL $$$
  231.                 inc     di              ; DI = DS size in paragraphs
  232.                 cmp     bp, di
  233.                 jb      InitFailed      ; Not enough memory
  234.                 cmp     _stklen@, 0
  235.                 je      ExpandDS        ; Expand DS up to 64 Kb
  236.                 cmp     _heaplen@, 0
  237.                 jne     ExcessOfMemory  ; Much more available than needed
  238. ExpandDS        label   near
  239.                 mov     di, 1000h
  240.                 cmp     bp, di
  241.                 ja      ExcessOfMemory  ; Enough to run the program
  242.                 mov     di, bp
  243.                 jmp     short ExcessOfMemory  ; Enough to run the program
  244. ENDIF
  245.  
  246. ;       All initialization errors arrive here
  247.  
  248. InitFailed      label   near
  249.                 jmp     near ptr abort@
  250.  
  251. ;       Return to DOS the amount of memory in excess
  252. ;       Set far heap base and pointer
  253.  
  254. ExcessOfMemory  label   near
  255.                 mov     bx, di
  256.                 add     bx, dx
  257.                 mov     word ptr _heapbase@ + 2, bx
  258.                 mov     word ptr _brklvl@ + 2, bx
  259.                 mov     ax, _psp@
  260.                 sub     bx, ax          ; BX = Number of paragraphs to keep
  261.                 mov     es, ax          ; ES = Program Segment Prefix address
  262.                 mov     ah, 04Ah
  263.                 push    di              ; preserve DI
  264.                 int     021h            ; this call clobbers SI,DI,BP !!!!!!
  265.                 pop     di              ; restore  DI
  266. ;
  267. ;    Set the program stack.  Take care to prevent the disastrous
  268. ;    interrupt that could happen with a stack that is half switched.
  269. ;
  270.                 shl     di, cl          ; $$$ CX is still equal to 4 $$$
  271.  
  272.         cli
  273.                 mov     ss, dx
  274.                 mov     sp, di
  275.         sti
  276.  
  277. IFNDEF  __HUGE__
  278.  
  279. ;       Reset uninitialized data area
  280.  
  281.                 xor     ax, ax
  282.                 mov     es, cs:DGROUP@@
  283.                 mov     di, offset DGROUP: bdata@
  284.                 mov     cx, offset DGROUP: edata@
  285.                 sub     cx, di
  286.             rep     stosb
  287. ENDIF
  288.  
  289. IFNDEF  __NOFLOAT__
  290.  
  291. ;       Install floating point software
  292.  
  293.                 push    cs              ;Simulation of a FAR call
  294.                 call    ds:[__emu1st]
  295. ENDIF
  296.  
  297. ;       Prepare main arguments
  298.  
  299.                 call    _setargv@
  300.                 call    _setenvp@
  301.  
  302.                 mov    ah, 0
  303.                 int    1ah            ; get current BIOS time in ticks
  304.                 mov    word ptr _StartTime@,dx    ; save it for clock() fn
  305.                 mov    word ptr _StartTime@+2,cx
  306.  
  307. IFNDEF  __OLDCONIO__
  308. IF      LPROG
  309.                 push    cs              ; Simulation of a FAR call
  310. ENDIF
  311.                 call    ds:[__crt1st]   ; Initialize window sizes, etc.
  312. ENDIF
  313.  
  314. ;       ExitCode = main(argc,argv,envp);
  315.  
  316. IF      LDATA
  317.                 push    word ptr environ@+2
  318.                 push    word ptr environ@
  319.                 push    word ptr _argv@+2
  320.                 push    word ptr _argv@
  321. ELSE
  322.                 push    word ptr environ@
  323.                 push    word ptr _argv@
  324. ENDIF
  325.                 push    _argc@
  326.                 call    main@
  327.  
  328. ;       Flush and close streams and files
  329.  
  330.                 push    ax
  331.                 call    exit@
  332.  
  333. ;---------------------------------------------------------------------------
  334. ;    _exit()
  335. ;
  336. ;       Restore interrupt vectors taken during startup.  signal() functions
  337. ;    could have grabbed vectors 0, 4, 5 or 6.
  338. ;
  339. ;    Check for NULL pointer errors.
  340. ;
  341. ;    Exit to DOS.
  342. ;
  343. ;NOTE : _exit() doesn't close any files or run exit functions.  This is a
  344. ;    minimal 'cleanup & quit' program exit.
  345. ;---------------------------------------------------------------------------
  346. PubProc@        _exit,  __CDECL__
  347.                 mov     ds, cs:DGROUP@@
  348.  
  349. IF      LPROG
  350.                 call    far ptr _restorezero@    ; restore captured INT vectors
  351. ELSE
  352.                 call    near ptr _restorezero@
  353. ENDIF
  354.  
  355. IFNDEF  __NOFLOAT__
  356.  
  357. ;       Restore interrupt vectors taken by __emu1st
  358.  
  359.                 push    cs              ;Simulation of a FAR call
  360.                 call    ds:[__emuLast]
  361. ENDIF
  362.  
  363. IF      LDATA EQ false
  364. IFNDEF  __TINY__
  365.  
  366. ;       Check for null pointers before exit
  367.  
  368.                 xor     ax, ax
  369.                 mov     si, ax
  370.                 mov     cx, lgth_CopyRight
  371.                 cld
  372. ComputeChecksum label   near
  373.                 add     al, [si]
  374.                 adc     ah, 0
  375.                 inc     si
  376.                 loop    ComputeChecksum
  377.                 sub     ax, CheckSum
  378.                 jz      ExitToDOS
  379.                 mov     cx, lgth_NullCheck
  380.                 mov     dx, offset DGROUP: NullCheck
  381.                 call    ErrorDisplay
  382. ENDIF
  383. ENDIF
  384.  
  385. ;       Exit to DOS
  386.  
  387. ExitToDOS       label   near
  388.                 mov     bp,sp
  389.                 mov     ah,4Ch
  390.                 mov     al,[bp+cPtrSize]
  391.                 int     21h                     ; Exit to DOS
  392. EndProc@        _exit, __CDECL__
  393. STARTX          ENDP
  394.  
  395.         SUBTTL  Vector save/restore & default Zero divide routines
  396.         PAGE
  397. ;[]------------------------------------------------------------[]
  398. ;|                                                              |
  399. ;| Interrupt Save/Restore routines and default divide by zero   |
  400. ;| handler.                                                     |
  401. ;|                                                              |
  402. ;[]------------------------------------------------------------[]
  403.  
  404. ZeroDivision    PROC    FAR
  405.                 mov     cx, lgth_ZeroDivMSG
  406.                 mov     dx, offset DGROUP: ZeroDivMSG
  407.                 jmp     MsgExit3
  408. ZeroDivision    ENDP
  409.  
  410. ;--------------------------------------------------------------------------
  411. ;    savevectors()
  412. ;
  413. ;    Save vectors for 0, 4, 5 & 6 interrupts.  This is for extended
  414. ;    signal()/raise() support as the signal functions can steal these
  415. ;    vectors during runtime.
  416. ;--------------------------------------------------------------------------
  417. SaveVectors    PROC    NEAR
  418.                 push    ds
  419. ; Save INT 0
  420.                 mov     ax, 3500h
  421.                 int     021h
  422.                 mov     word ptr _Int0Vector@, bx
  423.                 mov     word ptr _Int0Vector@+2, es
  424. ; Save INT 4
  425.                 mov     ax, 3504h
  426.                 int     021h
  427.                 mov     word ptr _Int4Vector@, bx
  428.                 mov     word ptr _Int4Vector@+2, es
  429. ; Save INT 5
  430.                 mov     ax, 3505h
  431.                 int     021h
  432.                 mov     word ptr _Int5Vector@, bx
  433.                 mov     word ptr _Int5Vector@+2, es
  434. ; Save INT 6
  435.                 mov     ax, 3506h
  436.                 int     021h
  437.                 mov     word ptr _Int6Vector@, bx
  438.                 mov     word ptr _Int6Vector@+2, es
  439. ;
  440. ;    Install default divide by zero handler.
  441. ;
  442.                 mov     ax, 2500h
  443.                 mov     dx, cs
  444.                 mov     ds, dx
  445.                 mov     dx, offset ZeroDivision
  446.                 int     21h
  447.  
  448.                 pop     ds
  449.                 ret
  450. SaveVectors    ENDP
  451.  
  452. ;--------------------------------------------------------------------------
  453. ;    restorezero() puts back all the vectors that SaveVectors took.
  454. ;
  455. ;NOTE : TSRs must BE AWARE that signal() functions which take these 
  456. ;    vectors will be deactivated if the keep() function is executed.
  457. ;    If a TSR wants to use the signal functions when it is active it 
  458. ;    will have to save/restore these vectors itself when activated and
  459. ;    deactivated.
  460. ;--------------------------------------------------------------------------
  461. PubProc@        _restorezero, __CDECL__
  462.  
  463. IFDEF   __HUGE__
  464.                 push    ds
  465.                 mov     ds, cs: DGROUP@@
  466. ENDIF
  467.                 push    ds
  468.                 mov     ax, 2500h
  469.                 lds     dx, _Int0Vector@
  470.                 int     21h
  471.         pop    ds
  472.  
  473.         push    ds
  474.                 mov     ax, 2504h
  475.                 lds     dx, _Int4Vector@
  476.                 int     21h
  477.         pop    ds
  478.  
  479.         push    ds
  480.                 mov     ax, 2505h
  481.                 lds     dx, _Int5Vector@
  482.                 int     21h
  483.         pop    ds
  484.  
  485. IFNDEF   __HUGE__
  486.         push    ds
  487. ENDIF
  488.                 mov     ax, 2506h
  489.                 lds     dx, _Int6Vector@
  490.                 int     21h
  491.                 pop     ds
  492.  
  493.                 ret
  494. EndProc@        _restorezero, __CDECL__
  495.  
  496.         SUBTTL  Miscellaneous
  497.         PAGE
  498. ;[]------------------------------------------------------------[]
  499. ;|                                                              |
  500. ;|      Miscellaneous functions                                 |
  501. ;|                                                              |
  502. ;[]------------------------------------------------------------[]
  503.  
  504. IFNDEF  __NOFLOAT__
  505. NoEmulator      PROC    FAR
  506.                 mov     _8087@, 0
  507.                 ret
  508. NoEmulator      ENDP
  509. ENDIF
  510.  
  511. IFNDEF  __OLDCONIO__
  512. Proc@           NoConsole, __CDECL__
  513.                 ret
  514. EndProc@        NoConsole, __CDECL__
  515. ENDIF
  516.  
  517. ErrorDisplay    PROC    NEAR
  518.                 mov     ah, 040h
  519.                 mov     bx, 2
  520.                 int     021h
  521.                 ret
  522. ErrorDisplay    ENDP
  523.  
  524. PubProc@        abort,  __CDECL__
  525.                 mov     cx, lgth_abortMSG
  526.                 mov     dx, offset DGROUP: abortMSG
  527. MsgExit3        label   near
  528.                 mov     ds, cs: DGROUP@@
  529.                 call    ErrorDisplay
  530. CallExit3       label   near
  531.                 mov     ax, 3
  532.                 push    ax
  533.                 call    _exit@          ; _exit(3);
  534. EndProc@        abort, __CDECL__
  535.  
  536. ;       The DGROUP@ variable is used to reload DS with DGROUP
  537.  
  538. PubSym@ DGROUP@, <dw    ?>, __PASCAL__
  539. _TEXT   ENDS
  540.  
  541.         SUBTTL  Start Up Data Area
  542.         PAGE
  543. ;[]------------------------------------------------------------[]
  544. ;|      Start Up Data Area                                      |
  545. ;|                                                              |
  546. ;|      WARNING         Do not move any variables in the data   |
  547. ;|                      segment unless you're absolutely sure   |
  548. ;|                      that it does not matter.                |
  549. ;|                                                              |
  550. ;[]------------------------------------------------------------[]
  551.  
  552. _DATA   SEGMENT
  553.  
  554. ;       The CopyRight string must NOT be moved or changed without
  555. ;       changing the null pointer check logic
  556.  
  557. CopyRight       db      4 dup(0)
  558.                 db      'Turbo-C - Copyright (c) 1988 Borland Intl.',0
  559. lgth_CopyRight  equ     $ - CopyRight
  560.  
  561. IF      LDATA EQ false
  562. IFNDEF  __TINY__
  563. CheckSum        equ     00D37h
  564. NullCheck       db      'Null pointer assignment', 13, 10
  565. lgth_NullCheck  equ     $ - NullCheck
  566. ENDIF
  567. ENDIF
  568.  
  569. ZeroDivMSG      db      'Divide error', 13, 10
  570. lgth_ZeroDivMSG equ     $ - ZeroDivMSG
  571.  
  572. abortMSG        db      'Abnormal program termination', 13, 10
  573. lgth_abortMSG   equ     $ - abortMSG
  574.  
  575. ;
  576. ;            Interrupt vector save areas
  577. ;    
  578. ;    Interrupt vectors 0,4,5 & 6 are saved at startup and then restored
  579. ;    when the program terminates.  The signal/raise functions might
  580. ;    steal these vectors during execution.
  581. ;
  582. PubSym@         _Int0Vector    <dd     0>,             __CDECL__
  583. PubSym@         _Int4Vector    <dd     0>,             __CDECL__
  584. PubSym@         _Int5Vector    <dd     0>,             __CDECL__
  585. PubSym@         _Int6Vector    <dd     0>,             __CDECL__
  586. ;
  587. ;            Miscellaneous variables
  588. ;    
  589. PubSym@         _argc,          <dw     0>,             __CDECL__
  590. dPtrPub@        _argv,          0,                      __CDECL__
  591. dPtrPub@        environ,        0,                      __CDECL__
  592. PubSym@         _envLng,        <dw     0>,             __CDECL__
  593. PubSym@         _envseg,        <dw    0>,              __CDECL__
  594. PubSym@         _envSize,       <dw    0>,              __CDECL__
  595. PubSym@         _psp,           <dw    0>,              __CDECL__
  596. PubSym@         _version,       <label word>,           __CDECL__
  597. PubSym@         _osmajor,       <db    0>,              __CDECL__
  598. PubSym@         _osminor,       <db    0>,              __CDECL__
  599. PubSym@         errno,          <dw    0>,              __CDECL__
  600. PubSym@         _8087,          <dw    0>,              __CDECL__
  601. PubSym@         _StartTime,     <dw    0,0>,            __CDECL__
  602.  
  603.  
  604. ;       Memory management variables
  605.  
  606. IF      LDATA EQ false
  607. PubSym@         __heapbase,     <dw   DGROUP:edata@>,   __CDECL__
  608. PubSym@         __brklvl,       <dw   DGROUP:edata@>,   __CDECL__
  609. PubSym@         __heaptop,      <dw   DGROUP:edata@>,   __CDECL__
  610. ENDIF
  611. PubSym@         _heapbase,      <dd   0>,       __CDECL__
  612. PubSym@         _brklvl,        <dd   0>,       __CDECL__
  613. PubSym@         _heaptop,       <dd   0>,       __CDECL__
  614.  
  615. IF    LDATA EQ false
  616.     IFNDEF    __NOFLOAT__
  617. ;                Emulator variables
  618.         INCLUDE    emuvars.asi
  619.     ENDIF
  620. ENDIF
  621.  
  622. _DATA   ENDS
  623.  
  624. IFNDEF  __NOFLOAT__
  625. _EMUSEG SEGMENT
  626. __emu1st        dw      NoEmulator
  627. __emuLast       dw      NoEmulator
  628. _EMUSEG ENDS
  629. ENDIF
  630.  
  631. IFNDEF  __OLDCONIO__
  632. _CRTSEG SEGMENT
  633. __crt1st        dw      NoConsole@
  634. _CRTSEG ENDS
  635. ENDIF
  636.  
  637. _CVTSEG SEGMENT
  638. PubSym@ _RealCvtVector, <label  word>,  __CDECL__
  639. _CVTSEG ENDS
  640.  
  641. _SCNSEG SEGMENT
  642. PubSym@ _ScanTodVector,  <label word>,  __CDECL__
  643. _SCNSEG ENDS
  644.  
  645. IFNDEF __HUGE__
  646. _BSS    SEGMENT
  647. bdata@  label   byte
  648. _BSS    ENDS
  649.  
  650. _BSSEND SEGMENT
  651. edata@  label   byte
  652. _BSSEND ENDS
  653. ENDIF
  654.  
  655. IFNDEF  __TINY__
  656. _STACK  SEGMENT
  657.         dw      64 dup (?)
  658.     IF    LDATA
  659.         org    0
  660.         IFNDEF    __NOFLOAT__
  661. ;                        Emulator variables
  662.             INCLUDE    emuvars.asi
  663.             even
  664.         ENDIF
  665. PUBLIC        emuTop@            ; for use in stack-underflow checks.
  666.         emuTop@    label    byte
  667.     ENDIF
  668. _STACK  ENDS
  669. ENDIF
  670.         END     STARTX
  671.